/ Aminet 35 / Aminet 35 (2000)(Schatztruhe)[!][Feb 2000].iso / Aminet / gfx / misc / gnuplot-src.lha / gnuplot-3.7.1src / gnuplot-3.7.1.lha / gnuplot-3.7.1 / gnuplot.el

< prev

next >

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 3b 3b 0a 3b 3b 20 24 49 | 64 3a 20 67 01 19 07 25 |;;.;; $I|d: g...%|
|00000010| 6e 14 07 06 00 04 00 04 | 00 00 ff ff 31 2e 31 20 |n.......|....1.1 |
|00000020| 31 39 39 38 2f 30 34 2f | 31 35 20 31 39 3a 31 36 |1998/04/|15 19:16|
|00000030| 3a 32 39 20 6c 68 65 63 | 6b 69 6e 67 20 45 78 70 |:29 lhec|king Exp|
|00000040| 20 24 0a 3b 3b 0a 3b 3b | 0a 3b 20 0a 3b 20 67 6e | $.;;.;;|.; .; gn|
|00000050| 75 2d 70 6c 6f 74 2e 65 | 6c 20 2d 20 44 65 66 69 |u-plot.e|l - Defi|
|00000060| 6e 69 74 69 6f 6e 73 20 | 6f 66 20 47 4e 55 2d 50 |nitions |of GNU-P|
|00000070| 4c 4f 54 20 6d 6f 64 65 | 20 66 6f 72 20 65 6d 61 |LOT mode| for ema|
|00000080| 63 73 20 65 64 69 74 6f | 72 2e 0a 3b 20 0a 3b 20 |cs edito|r..; .; |
|00000090| 41 75 74 68 6f 72 3a 09 | 47 65 72 73 68 6f 6e 20 |Author:.|Gershon |
|000000a0| 45 6c 62 65 72 0a 3b 20 | 09 09 43 6f 6d 70 75 74 |Elber.; |..Comput|
|000000b0| 65 72 20 53 63 69 65 6e | 63 65 20 44 65 70 74 2e |er Scien|ce Dept.|
|000000c0| 0a 3b 20 09 09 55 6e 69 | 76 65 72 73 69 74 79 20 |.; ..Uni|versity |
|000000d0| 6f 66 20 55 74 61 68 0a | 3b 20 44 61 74 65 3a 09 |of Utah.|; Date:.|
|000000e0| 54 75 65 20 4d 61 79 20 | 31 34 20 31 39 39 31 0a |Tue May |14 1991.|
|000000f0| 3b 20 43 6f 70 79 72 69 | 67 68 74 20 28 63 29 20 |; Copyri|ght (c) |
|00000100| 31 39 39 31 2c 20 31 39 | 39 32 2c 20 47 65 72 73 |1991, 19|92, Gers|
|00000110| 68 6f 6e 20 45 6c 62 65 | 72 0a 3b 0a 3b 20 54 68 |hon Elbe|r.;.; Th|
|00000120| 69 73 20 66 69 6c 65 20 | 64 65 66 69 6e 65 73 20 |is file |defines |
|00000130| 61 6e 20 65 6e 76 69 72 | 6f 6e 6d 65 6e 74 20 74 |an envir|onment t|
|00000140| 6f 20 72 75 6e 20 65 64 | 69 74 20 61 6e 64 20 65 |o run ed|it and e|
|00000150| 78 65 63 75 74 65 20 47 | 4e 55 2d 50 4c 4f 54 20 |xecute G|NU-PLOT |
|00000160| 70 72 6f 67 72 61 6d 73 | 2e 0a 3b 20 53 75 63 68 |programs|..; Such|
|00000170| 20 61 20 70 72 6f 67 72 | 61 6d 20 73 68 6f 75 6c | a progr|am shoul|
|00000180| 64 20 68 61 76 65 20 61 | 20 27 2e 67 70 27 20 65 |d have a| '.gp' e|
|00000190| 78 74 65 6e 73 69 6f 6e | 20 69 6e 20 6f 72 64 65 |xtension| in orde|
|000001a0| 72 20 69 74 20 74 6f 20 | 62 65 20 69 6e 0a 3b 20 |r it to |be in.; |
|000001b0| 67 6e 75 2d 70 6c 6f 74 | 2d 6d 6f 64 65 20 6d 61 |gnu-plot|-mode ma|
|000001c0| 6a 6f 72 20 6d 6f 64 65 | 2e 20 54 77 6f 20 6e 65 |jor mode|. Two ne|
|000001d0| 77 20 66 75 6e 63 74 69 | 6f 6e 73 20 61 72 65 20 |w functi|ons are |
|000001e0| 70 72 6f 76 69 64 65 64 | 20 74 6f 20 63 6f 6d 6d |provided| to comm|
|000001f0| 75 6e 69 63 61 74 65 0a | 3b 20 62 65 74 77 65 65 |unicate.|; betwee|
|00000200| 6e 20 74 68 65 20 65 64 | 69 74 74 65 64 20 66 69 |n the ed|itted fi|
|00000210| 6c 65 20 61 6e 64 20 74 | 68 65 20 70 6c 6f 74 74 |le and t|he plott|
|00000220| 69 6e 67 20 70 72 6f 67 | 72 61 6d 3a 0a 3b 20 31 |ing prog|ram:.; 1|
|00000230| 2e 20 73 65 6e 64 2d 6c | 69 6e 65 2d 74 6f 2d 67 |. send-l|ine-to-g|
|00000240| 6e 75 2d 70 6c 6f 74 20 | 2d 20 73 65 6e 64 73 20 |nu-plot |- sends |
|00000250| 61 20 73 69 6e 67 6c 65 | 20 6c 69 6e 65 20 74 6f |a single| line to|
|00000260| 20 74 68 65 20 70 6c 6f | 74 74 69 6e 67 20 70 72 | the plo|tting pr|
|00000270| 6f 67 72 61 6d 20 66 6f | 72 0a 3b 20 20 20 20 65 |ogram fo|r.;    e|
|00000280| 78 65 63 75 74 69 6f 6e | 2e 20 54 68 65 20 6c 69 |xecution|. The li|
|00000290| 6e 65 20 73 65 6e 74 20 | 69 73 20 74 68 65 20 6c |ne sent |is the l|
|000002a0| 69 6e 65 20 74 68 65 20 | 63 75 72 73 6f 72 20 69 |ine the |cursor i|
|000002b0| 73 20 6f 6e 2c 0a 3b 20 | 20 20 20 42 6f 75 6e 64 |s on,.; |   Bound|
|000002c0| 65 64 20 74 6f 20 4d 65 | 74 61 2d 45 20 62 79 20 |ed to Me|ta-E by |
|000002d0| 64 65 66 61 75 6c 74 2e | 0a 3b 20 32 2e 20 73 65 |default.|.; 2. se|
|000002e0| 6e 64 2d 72 65 67 69 6f | 6e 2d 74 6f 2d 67 6e 75 |nd-regio|n-to-gnu|
|000002f0| 2d 70 6c 6f 74 20 2d 20 | 73 65 6e 64 73 20 74 68 |-plot - |sends th|
|00000300| 65 20 72 65 67 69 6f 6e | 20 66 72 6f 6d 20 74 68 |e region| from th|
|00000310| 65 20 63 75 72 72 65 6e | 74 20 6d 61 72 6b 0a 3b |e curren|t mark.;|
|00000320| 20 20 20 20 28 6d 61 72 | 6b 2d 6d 61 72 6b 65 72 |    (mar|k-marker|
|00000330| 29 20 74 6f 20 63 75 72 | 72 65 6e 74 20 70 6f 73 |) to cur|rent pos|
|00000340| 69 74 69 6f 6e 20 28 70 | 6f 69 6e 74 2d 6d 61 72 |ition (p|oint-mar|
|00000350| 6b 65 72 29 20 74 6f 20 | 74 68 65 20 70 6c 6f 74 |ker) to |the plot|
|00000360| 74 69 6e 67 20 70 72 6f | 67 72 61 6d 2e 0a 3b 20 |ting pro|gram..; |
|00000370| 20 20 20 54 68 69 73 20 | 66 75 6e 63 74 69 6f 6e |   This |function|
|00000380| 20 69 73 20 63 6f 6e 76 | 65 6e 69 65 6e 74 20 66 | is conv|enient f|
|00000390| 6f 72 20 73 65 6e 64 69 | 6e 67 20 61 20 6c 61 72 |or sendi|ng a lar|
|000003a0| 67 65 20 62 6c 6f 63 6b | 20 6f 66 20 63 6f 6d 6d |ge block| of comm|
|000003b0| 61 6e 64 73 2e 0a 3b 20 | 20 20 20 42 6f 75 6e 64 |ands..; |   Bound|
|000003c0| 65 64 20 74 6f 20 4d 65 | 74 61 2d 52 20 62 79 20 |ed to Me|ta-R by |
|000003d0| 64 65 66 61 75 6c 74 2e | 0a 3b 20 42 6f 74 68 20 |default.|.; Both |
|000003e0| 66 75 6e 63 74 69 6f 6e | 73 20 63 68 65 63 6b 73 |function|s checks|
|000003f0| 20 66 6f 72 20 65 78 69 | 73 74 61 6e 63 65 20 6f | for exi|stance o|
|00000400| 66 20 61 20 62 75 66 66 | 65 72 20 6e 61 6d 65 64 |f a buff|er named|
|00000410| 20 67 6e 75 2d 70 6c 6f | 74 2d 70 72 6f 67 72 61 | gnu-plo|t-progra|
|00000420| 6d 0a 3b 20 61 6e 64 20 | 61 20 70 72 6f 63 65 73 |m.; and |a proces|
|00000430| 73 20 6e 61 6d 65 64 20 | 22 67 6e 75 2d 70 6c 6f |s named |"gnu-plo|
|00000440| 74 22 20 68 6f 6f 6b 65 | 64 20 74 6f 20 69 74 2c |t" hooke|d to it,|
|00000450| 20 61 6e 64 20 77 69 6c | 6c 20 72 65 73 74 61 72 | and wil|l restar|
|00000460| 74 20 61 20 6e 65 77 20 | 70 72 6f 63 65 73 73 0a |t a new |process.|
|00000470| 3b 20 6f 72 20 62 75 66 | 66 65 72 20 69 66 20 6e |; or buf|fer if n|
|00000480| 6f 6e 65 20 65 78 69 73 | 74 73 2e 20 54 68 65 20 |one exis|ts. The |
|00000490| 70 72 6f 67 72 61 6d 20 | 74 6f 20 65 78 65 63 75 |program |to execu|
|000004a0| 74 65 20 61 73 20 70 72 | 6f 63 65 73 73 20 22 67 |te as pr|ocess "g|
|000004b0| 6e 75 2d 70 6c 6f 74 22 | 20 69 73 0a 3b 20 64 65 |nu-plot"| is.; de|
|000004c0| 66 69 6e 65 64 20 62 79 | 20 74 68 65 20 67 6e 75 |fined by| the gnu|
|000004d0| 2d 70 6c 6f 74 2d 70 72 | 6f 67 72 61 6d 20 63 6f |-plot-pr|ogram co|
|000004e0| 6e 73 74 61 6e 74 20 62 | 65 6c 6f 77 2e 0a 3b 0a |nstant b|elow..;.|
|000004f0| 0a 28 64 65 66 76 61 72 | 20 67 6e 75 2d 70 6c 6f |.(defvar| gnu-plo|
|00000500| 74 2d 70 72 6f 67 72 61 | 6d 20 22 67 6e 75 70 6c |t-progra|m "gnupl|
|00000510| 6f 74 22 0a 20 20 22 2a | 54 68 65 20 65 78 65 63 |ot".  "*|The exec|
|00000520| 75 74 61 62 6c 65 20 74 | 6f 20 72 75 6e 20 66 6f |utable t|o run fo|
|00000530| 72 20 67 6e 75 2d 70 6c | 6f 74 2d 70 72 6f 67 72 |r gnu-pl|ot-progr|
|00000540| 61 6d 20 62 75 66 66 65 | 72 2e 22 29 0a 0a 28 64 |am buffe|r.")..(d|
|00000550| 65 66 76 61 72 20 67 6e | 75 2d 70 6c 6f 74 2d 65 |efvar gn|u-plot-e|
|00000560| 63 68 6f 2d 70 72 6f 67 | 72 61 6d 20 74 0a 20 20 |cho-prog|ram t.  |
|00000570| 22 2a 43 6f 6e 74 72 6f | 6c 20 65 63 68 6f 20 6f |"*Contro|l echo o|
|00000580| 66 20 65 78 65 63 75 74 | 65 64 20 63 6f 6d 6d 61 |f execut|ed comma|
|00000590| 6e 64 73 20 74 6f 20 67 | 6e 75 2d 70 6c 6f 74 2d |nds to g|nu-plot-|
|000005a0| 70 72 6f 67 72 61 6d 20 | 62 75 66 66 65 72 2e 22 |program |buffer."|
|000005b0| 29 0a 0a 28 64 65 66 76 | 61 72 20 67 6e 75 2d 70 |)..(defv|ar gnu-p|
|000005c0| 6c 6f 74 2d 6d 6f 64 65 | 2d 6d 61 70 20 6e 69 6c |lot-mode|-map nil|
|000005d0| 20 22 22 29 0a 28 69 66 | 20 67 6e 75 2d 70 6c 6f | "").(if| gnu-plo|
|000005e0| 74 2d 6d 6f 64 65 2d 6d | 61 70 0a 20 20 20 20 28 |t-mode-m|ap.    (|
|000005f0| 29 0a 20 20 28 73 65 74 | 71 20 67 6e 75 2d 70 6c |).  (set|q gnu-pl|
|00000600| 6f 74 2d 6d 6f 64 65 2d | 6d 61 70 20 28 6d 61 6b |ot-mode-|map (mak|
|00000610| 65 2d 73 70 61 72 73 65 | 2d 6b 65 79 6d 61 70 29 |e-sparse|-keymap)|
|00000620| 29 0a 20 20 28 64 65 66 | 69 6e 65 2d 6b 65 79 20 |).  (def|ine-key |
|00000630| 67 6e 75 2d 70 6c 6f 74 | 2d 6d 6f 64 65 2d 6d 61 |gnu-plot|-mode-ma|
|00000640| 70 20 22 5c 4d 2d 65 22 | 20 27 73 65 6e 64 2d 6c |p "\M-e"| 'send-l|
|00000650| 69 6e 65 2d 74 6f 2d 67 | 6e 75 2d 70 6c 6f 74 29 |ine-to-g|nu-plot)|
|00000660| 0a 20 20 28 64 65 66 69 | 6e 65 2d 6b 65 79 20 67 |.  (defi|ne-key g|
|00000670| 6e 75 2d 70 6c 6f 74 2d | 6d 6f 64 65 2d 6d 61 70 |nu-plot-|mode-map|
|00000680| 20 22 5c 4d 2d 72 22 20 | 27 73 65 6e 64 2d 72 65 | "\M-r" |'send-re|
|00000690| 67 69 6f 6e 2d 74 6f 2d | 67 6e 75 2d 70 6c 6f 74 |gion-to-|gnu-plot|
|000006a0| 29 29 0a 0a 3b 3b 3b 0a | 3b 3b 3b 20 44 65 66 69 |))..;;;.|;;; Defi|
|000006b0| 6e 65 20 74 68 65 20 67 | 6e 75 2d 70 6c 6f 74 2d |ne the g|nu-plot-|
|000006c0| 6d 6f 64 65 0a 3b 3b 3b | 0a 28 64 65 66 75 6e 20 |mode.;;;|.(defun |
|000006d0| 67 6e 75 2d 70 6c 6f 74 | 2d 6d 6f 64 65 20 28 29 |gnu-plot|-mode ()|
|000006e0| 0a 20 20 22 4d 61 6a 6f | 72 20 6d 6f 64 65 20 66 |.  "Majo|r mode f|
|000006f0| 6f 72 20 65 64 69 74 69 | 6e 67 20 61 6e 64 20 65 |or editi|ng and e|
|00000700| 78 65 63 75 74 69 6e 67 | 20 47 4e 55 2d 50 4c 4f |xecuting| GNU-PLO|
|00000710| 54 20 66 69 6c 65 73 2e | 0a 0a 73 65 65 20 73 65 |T files.|..see se|
|00000720| 6e 64 2d 6c 69 6e 65 2d | 74 6f 2d 67 6e 75 2d 70 |nd-line-|to-gnu-p|
|00000730| 6c 6f 74 20 61 6e 64 20 | 73 65 6e 64 2d 72 65 67 |lot and |send-reg|
|00000740| 69 6f 6e 2d 74 6f 2d 67 | 6e 75 2d 70 6c 6f 74 20 |ion-to-g|nu-plot |
|00000750| 66 6f 72 20 6d 6f 72 65 | 2e 22 0a 20 20 28 69 6e |for more|.".  (in|
|00000760| 74 65 72 61 63 74 69 76 | 65 29 0a 20 20 28 75 73 |teractiv|e).  (us|
|00000770| 65 2d 6c 6f 63 61 6c 2d | 6d 61 70 20 67 6e 75 2d |e-local-|map gnu-|
|00000780| 70 6c 6f 74 2d 6d 6f 64 | 65 2d 6d 61 70 29 0a 20 |plot-mod|e-map). |
|00000790| 20 28 73 65 74 71 20 6d | 61 6a 6f 72 2d 6d 6f 64 | (setq m|ajor-mod|
|000007a0| 65 20 27 67 6e 75 2d 70 | 6c 6f 74 2d 6d 6f 64 65 |e 'gnu-p|lot-mode|
|000007b0| 29 0a 20 20 28 73 65 74 | 71 20 6d 6f 64 65 2d 6e |).  (set|q mode-n|
|000007c0| 61 6d 65 20 22 47 6e 75 | 2d 50 6c 6f 74 22 29 0a |ame "Gnu|-Plot").|
|000007d0| 20 20 28 72 75 6e 2d 68 | 6f 6f 6b 73 20 27 67 6e |  (run-h|ooks 'gn|
|000007e0| 75 2d 70 6c 6f 74 2d 6d | 6f 64 65 2d 68 6f 6f 6b |u-plot-m|ode-hook|
|000007f0| 29 29 0a 0a 3b 3b 3b 0a | 3b 3b 3b 20 44 65 66 69 |))..;;;.|;;; Defi|
|00000800| 6e 65 20 73 65 6e 64 2d | 6c 69 6e 65 2d 74 6f 2d |ne send-|line-to-|
|00000810| 67 6e 75 2d 70 6c 6f 74 | 20 2d 20 73 65 6e 64 20 |gnu-plot| - send |
|00000820| 66 72 6f 6d 20 63 75 72 | 72 65 6e 74 20 63 75 72 |from cur|rent cur|
|00000830| 73 6f 72 20 70 6f 73 69 | 74 69 6f 6e 20 74 6f 20 |sor posi|tion to |
|00000840| 6e 65 78 74 0a 3b 3b 3b | 20 73 65 6d 69 63 6f 6c |next.;;;| semicol|
|00000850| 69 6e 20 64 65 74 65 63 | 74 65 64 2e 0a 3b 3b 3b |in detec|ted..;;;|
|00000860| 0a 28 64 65 66 75 6e 20 | 73 65 6e 64 2d 6c 69 6e |.(defun |send-lin|
|00000870| 65 2d 74 6f 2d 67 6e 75 | 2d 70 6c 6f 74 20 28 29 |e-to-gnu|-plot ()|
|00000880| 0a 20 20 22 53 65 6e 64 | 73 20 6f 6e 65 20 6c 69 |.  "Send|s one li|
|00000890| 6e 65 20 6f 66 20 63 6f | 64 65 20 66 72 6f 6d 20 |ne of co|de from |
|000008a0| 63 75 72 72 65 6e 74 20 | 62 75 66 66 65 72 20 74 |current |buffer t|
|000008b0| 6f 20 74 68 65 20 47 4e | 55 2d 50 4c 4f 54 20 70 |o the GN|U-PLOT p|
|000008c0| 72 6f 67 72 61 6d 2e 0a | 0a 55 73 65 20 74 6f 20 |rogram..|.Use to |
|000008d0| 65 78 65 63 75 74 65 20 | 61 20 6c 69 6e 65 20 69 |execute |a line i|
|000008e0| 6e 20 74 68 65 20 47 4e | 55 2d 50 4c 4f 54 20 70 |n the GN|U-PLOT p|
|000008f0| 6c 6f 74 74 69 6e 67 20 | 70 72 6f 67 72 61 6d 2e |lotting |program.|
|00000900| 20 54 68 65 20 6c 69 6e | 65 20 73 65 6e 74 20 69 | The lin|e sent i|
|00000910| 73 0a 74 68 65 20 6c 69 | 6e 65 20 74 68 65 20 63 |s.the li|ne the c|
|00000920| 75 72 73 6f 72 20 28 70 | 6f 69 6e 74 29 20 69 73 |ursor (p|oint) is|
|00000930| 20 6f 6e 2e 0a 0a 54 68 | 65 20 47 4e 55 2d 50 4c | on...Th|e GNU-PL|
|00000940| 4f 54 20 70 6c 6f 74 74 | 69 6e 67 20 70 72 6f 67 |OT plott|ing prog|
|00000950| 72 61 6d 20 62 75 66 66 | 65 72 20 6e 61 6d 65 20 |ram buff|er name |
|00000960| 69 73 20 67 6e 75 2d 70 | 6c 6f 74 2d 70 72 6f 67 |is gnu-p|lot-prog|
|00000970| 72 61 6d 20 61 6e 64 20 | 74 68 65 20 0a 70 72 6f |ram and |the .pro|
|00000980| 63 65 73 73 20 6e 61 6d | 65 20 69 73 20 27 67 6e |cess nam|e is 'gn|
|00000990| 75 2d 70 6c 6f 74 27 2e | 20 49 66 20 6e 6f 6e 65 |u-plot'.| If none|
|000009a0| 20 65 78 69 73 74 73 2c | 20 61 20 6e 65 77 20 6f | exists,| a new o|
|000009b0| 6e 65 20 69 73 20 63 72 | 65 61 74 65 64 2e 0a 0a |ne is cr|eated...|
|000009c0| 54 68 65 20 6e 61 6d 65 | 20 6f 66 20 74 68 65 20 |The name| of the |
|000009d0| 67 6e 75 2d 70 6c 6f 74 | 20 70 72 6f 67 72 61 6d |gnu-plot| program|
|000009e0| 20 70 72 6f 67 72 61 6d | 20 74 6f 20 65 78 65 63 | program| to exec|
|000009f0| 75 74 65 20 69 73 20 73 | 74 6f 72 65 64 20 69 6e |ute is s|tored in|
|00000a00| 0a 67 6e 75 2d 70 6c 6f | 74 2d 70 72 6f 67 72 61 |.gnu-plo|t-progra|
|00000a10| 6d 20 76 61 72 69 61 62 | 6c 65 20 61 6e 64 20 6d |m variab|le and m|
|00000a20| 61 79 20 62 65 20 63 68 | 61 6e 67 65 64 2e 22 0a |ay be ch|anged.".|
|00000a30| 20 20 28 69 6e 74 65 72 | 61 63 74 69 76 65 29 0a |  (inter|active).|
|00000a40| 20 20 28 69 66 20 28 65 | 71 75 61 6c 20 6d 61 6a |  (if (e|qual maj|
|00000a50| 6f 72 2d 6d 6f 64 65 20 | 27 67 6e 75 2d 70 6c 6f |or-mode |'gnu-plo|
|00000a60| 74 2d 6d 6f 64 65 29 0a | 20 20 20 20 28 70 72 6f |t-mode).|    (pro|
|00000a70| 67 6e 0a 20 20 20 20 20 | 20 28 6d 61 6b 65 2d 67 |gn.     | (make-g|
|00000a80| 6e 75 2d 70 6c 6f 74 2d | 62 75 66 66 65 72 29 20 |nu-plot-|buffer) |
|00000a90| 20 20 20 20 20 20 20 3b | 20 49 6e 20 63 61 73 65 |       ;| In case|
|00000aa0| 20 77 65 20 73 68 6f 75 | 6c 64 20 73 74 61 72 74 | we shou|ld start|
|00000ab0| 20 61 20 6e 65 77 20 6f | 6e 65 2e 0a 20 20 20 20 | a new o|ne..    |
|00000ac0| 20 20 28 62 65 67 69 6e | 6e 69 6e 67 2d 6f 66 2d |  (begin|ning-of-|
|00000ad0| 6c 69 6e 65 29 0a 20 20 | 20 20 20 20 28 6c 65 74 |line).  |    (let|
|00000ae0| 20 28 28 73 74 61 72 74 | 2d 6d 61 72 6b 20 28 70 | ((start|-mark (p|
|00000af0| 6f 69 6e 74 2d 6d 61 72 | 6b 65 72 29 29 29 0a 09 |oint-mar|ker)))..|
|00000b00| 28 6e 65 78 74 2d 6c 69 | 6e 65 20 31 29 0a 09 28 |(next-li|ne 1)..(|
|00000b10| 6c 65 74 2a 20 28 28 63 | 72 6e 74 2d 62 75 66 66 |let* ((c|rnt-buff|
|00000b20| 65 72 20 28 62 75 66 66 | 65 72 2d 6e 61 6d 65 29 |er (buff|er-name)|
|00000b30| 29 0a 09 20 20 20 20 20 | 20 20 28 65 6e 64 2d 6d |)..     |  (end-m|
|00000b40| 61 72 6b 20 28 70 6f 69 | 6e 74 2d 6d 61 72 6b 65 |ark (poi|nt-marke|
|00000b50| 72 29 29 0a 09 20 20 20 | 20 20 20 20 28 73 74 72 |r))..   |    (str|
|00000b60| 69 6e 67 2d 63 6f 70 79 | 20 28 62 75 66 66 65 72 |ing-copy| (buffer|
|00000b70| 2d 73 75 62 73 74 72 69 | 6e 67 20 73 74 61 72 74 |-substri|ng start|
|00000b80| 2d 6d 61 72 6b 20 65 6e | 64 2d 6d 61 72 6b 29 29 |-mark en|d-mark))|
|00000b90| 29 0a 09 20 20 28 73 77 | 69 74 63 68 2d 74 6f 2d |)..  (sw|itch-to-|
|00000ba0| 62 75 66 66 65 72 2d 6f | 74 68 65 72 2d 77 69 6e |buffer-o|ther-win|
|00000bb0| 64 6f 77 20 28 67 65 74 | 2d 62 75 66 66 65 72 20 |dow (get|-buffer |
|00000bc0| 22 67 6e 75 2d 70 6c 6f | 74 2d 70 72 6f 67 72 61 |"gnu-plo|t-progra|
|00000bd0| 6d 22 29 29 0a 09 20 20 | 28 65 6e 64 2d 6f 66 2d |m"))..  |(end-of-|
|00000be0| 62 75 66 66 65 72 29 0a | 09 20 20 28 69 66 20 67 |buffer).|.  (if g|
|00000bf0| 6e 75 2d 70 6c 6f 74 2d | 65 63 68 6f 2d 70 72 6f |nu-plot-|echo-pro|
|00000c00| 67 72 61 6d 0a 09 20 20 | 20 20 28 69 6e 73 65 72 |gram..  |  (inser|
|00000c10| 74 20 73 74 72 69 6e 67 | 2d 63 6f 70 79 29 29 0a |t string|-copy)).|
|00000c20| 09 20 20 28 73 65 74 2d | 6d 61 72 6b 65 72 20 28 |.  (set-|marker (|
|00000c30| 70 72 6f 63 65 73 73 2d | 6d 61 72 6b 20 28 67 65 |process-|mark (ge|
|00000c40| 74 2d 70 72 6f 63 65 73 | 73 20 22 67 6e 75 2d 70 |t-proces|s "gnu-p|
|00000c50| 6c 6f 74 22 29 29 20 28 | 70 6f 69 6e 74 2d 6d 61 |lot")) (|point-ma|
|00000c60| 72 6b 65 72 29 29 0a 09 | 20 20 28 69 66 20 28 6e |rker))..|  (if (n|
|00000c70| 6f 74 20 28 70 6f 73 2d | 76 69 73 69 62 6c 65 2d |ot (pos-|visible-|
|00000c80| 69 6e 2d 77 69 6e 64 6f | 77 2d 70 29 29 0a 09 20 |in-windo|w-p)).. |
|00000c90| 20 20 20 28 72 65 63 65 | 6e 74 65 72 20 33 29 29 |   (rece|nter 3))|
|00000ca0| 0a 09 20 20 28 73 77 69 | 74 63 68 2d 74 6f 2d 62 |..  (swi|tch-to-b|
|00000cb0| 75 66 66 65 72 2d 6f 74 | 68 65 72 2d 77 69 6e 64 |uffer-ot|her-wind|
|00000cc0| 6f 77 20 28 67 65 74 2d | 62 75 66 66 65 72 20 63 |ow (get-|buffer c|
|00000cd0| 72 6e 74 2d 62 75 66 66 | 65 72 29 29 0a 09 20 20 |rnt-buff|er))..  |
|00000ce0| 28 70 72 6f 63 65 73 73 | 2d 73 65 6e 64 2d 72 65 |(process|-send-re|
|00000cf0| 67 69 6f 6e 20 22 67 6e | 75 2d 70 6c 6f 74 22 20 |gion "gn|u-plot" |
|00000d00| 73 74 61 72 74 2d 6d 61 | 72 6b 20 65 6e 64 2d 6d |start-ma|rk end-m|
|00000d10| 61 72 6b 29 0a 09 20 20 | 28 67 6f 74 6f 2d 63 68 |ark)..  |(goto-ch|
|00000d20| 61 72 20 65 6e 64 2d 6d | 61 72 6b 29 29 29 29 0a |ar end-m|ark)))).|
|00000d30| 20 20 20 20 28 6d 65 73 | 73 61 67 65 20 22 53 68 |    (mes|sage "Sh|
|00000d40| 6f 75 6c 64 20 62 65 20 | 69 6e 76 6f 6b 65 64 20 |ould be |invoked |
|00000d50| 69 6e 20 67 6e 75 2d 70 | 6c 6f 74 2d 6d 6f 64 65 |in gnu-p|lot-mode|
|00000d60| 20 6f 6e 6c 79 2e 22 29 | 29 29 0a 0a 3b 3b 3b 0a | only.")|))..;;;.|
|00000d70| 3b 3b 3b 20 44 65 66 69 | 6e 65 20 73 65 6e 64 2d |;;; Defi|ne send-|
|00000d80| 72 65 67 69 6f 6e 2d 74 | 6f 2d 67 6e 75 2d 70 6c |region-t|o-gnu-pl|
|00000d90| 6f 74 20 2d 20 73 65 6e | 64 20 66 72 6f 6d 20 63 |ot - sen|d from c|
|00000da0| 75 72 72 65 6e 74 20 63 | 75 72 73 6f 72 20 70 6f |urrent c|ursor po|
|00000db0| 73 69 74 69 6f 6e 20 74 | 6f 0a 3b 3b 3b 20 63 75 |sition t|o.;;; cu|
|00000dc0| 72 72 65 6e 74 20 6d 61 | 72 6b 65 72 2e 0a 3b 3b |rrent ma|rker..;;|
|00000dd0| 3b 0a 28 64 65 66 75 6e | 20 73 65 6e 64 2d 72 65 |;.(defun| send-re|
|00000de0| 67 69 6f 6e 2d 74 6f 2d | 67 6e 75 2d 70 6c 6f 74 |gion-to-|gnu-plot|
|00000df0| 20 28 29 0a 20 20 22 53 | 65 6e 64 73 20 61 20 72 | ().  "S|ends a r|
|00000e00| 65 67 69 6f 6e 20 6f 66 | 20 63 6f 64 65 20 66 72 |egion of| code fr|
|00000e10| 6f 6d 20 63 75 72 72 65 | 6e 74 20 62 75 66 66 65 |om curre|nt buffe|
|00000e20| 72 20 74 6f 20 74 68 65 | 20 47 4e 55 2d 50 4c 4f |r to the| GNU-PLO|
|00000e30| 54 20 70 72 6f 67 72 61 | 6d 2e 0a 0a 57 68 65 6e |T progra|m...When|
|00000e40| 20 74 68 69 73 20 66 75 | 6e 63 74 69 6f 6e 20 69 | this fu|nction i|
|00000e50| 73 20 69 6e 76 6f 6b 65 | 64 20 6f 6e 20 61 6e 20 |s invoke|d on an |
|00000e60| 47 4e 55 2d 50 4c 4f 54 | 20 66 69 6c 65 20 69 74 |GNU-PLOT| file it|
|00000e70| 20 73 65 6e 64 20 74 68 | 65 20 72 65 67 69 6f 6e | send th|e region|
|00000e80| 0a 66 72 6f 6d 20 63 75 | 72 72 65 6e 74 20 70 6f |.from cu|rrent po|
|00000e90| 69 6e 74 20 74 6f 20 63 | 75 72 72 65 6e 74 20 6d |int to c|urrent m|
|00000ea0| 61 72 6b 20 74 6f 20 74 | 68 65 20 67 6e 75 2d 70 |ark to t|he gnu-p|
|00000eb0| 6c 6f 74 20 70 6c 6f 74 | 74 69 6e 67 20 70 72 6f |lot plot|ting pro|
|00000ec0| 67 72 61 6d 2e 0a 0a 54 | 68 65 20 47 4e 55 2d 50 |gram...T|he GNU-P|
|00000ed0| 4c 4f 54 20 70 6c 6f 74 | 74 69 6e 67 20 70 72 6f |LOT plot|ting pro|
|00000ee0| 67 72 61 6d 20 62 75 66 | 66 65 72 20 6e 61 6d 65 |gram buf|fer name|
|00000ef0| 20 69 73 20 67 6e 75 2d | 70 6c 6f 74 2d 70 72 6f | is gnu-|plot-pro|
|00000f00| 67 72 61 6d 20 61 6e 64 | 20 74 68 65 0a 70 72 6f |gram and| the.pro|
|00000f10| 63 65 73 73 20 6e 61 6d | 65 20 69 73 20 27 67 6e |cess nam|e is 'gn|
|00000f20| 75 2d 70 6c 6f 74 27 2e | 20 49 66 20 6e 6f 6e 65 |u-plot'.| If none|
|00000f30| 20 65 78 69 73 74 73 2c | 20 61 20 6e 65 77 20 6f | exists,| a new o|
|00000f40| 6e 65 20 69 73 20 63 72 | 65 61 74 65 64 2e 0a 0a |ne is cr|eated...|
|00000f50| 54 68 65 20 6e 61 6d 65 | 20 6f 66 20 74 68 65 20 |The name| of the |
|00000f60| 67 6e 75 2d 70 6c 6f 74 | 20 70 72 6f 67 72 61 6d |gnu-plot| program|
|00000f70| 20 70 72 6f 67 72 61 6d | 20 74 6f 20 65 78 65 63 | program| to exec|
|00000f80| 75 74 65 20 69 73 20 73 | 74 6f 72 65 64 20 69 6e |ute is s|tored in|
|00000f90| 0a 67 6e 75 2d 70 6c 6f | 74 2d 70 72 6f 67 72 61 |.gnu-plo|t-progra|
|00000fa0| 6d 20 76 61 72 69 61 62 | 6c 65 20 61 6e 64 20 6d |m variab|le and m|
|00000fb0| 61 79 20 62 65 20 63 68 | 61 6e 67 65 64 2e 22 0a |ay be ch|anged.".|
|00000fc0| 20 20 28 69 6e 74 65 72 | 61 63 74 69 76 65 29 0a |  (inter|active).|
|00000fd0| 20 20 28 69 66 20 28 65 | 71 75 61 6c 20 6d 61 6a |  (if (e|qual maj|
|00000fe0| 6f 72 2d 6d 6f 64 65 20 | 27 67 6e 75 2d 70 6c 6f |or-mode |'gnu-plo|
|00000ff0| 74 2d 6d 6f 64 65 29 0a | 20 20 20 20 28 70 72 6f |t-mode).|    (pro|
|00001000| 67 6e 0a 20 20 20 20 20 | 20 28 6d 61 6b 65 2d 67 |gn.     | (make-g|
|00001010| 6e 75 2d 70 6c 6f 74 2d | 62 75 66 66 65 72 29 20 |nu-plot-|buffer) |
|00001020| 20 20 20 20 3b 20 49 6e | 20 63 61 73 65 20 77 65 |    ; In| case we|
|00001030| 20 73 68 6f 75 6c 64 20 | 73 74 61 72 74 20 61 20 | should |start a |
|00001040| 6e 65 77 20 6f 6e 65 2e | 0a 20 20 20 20 20 20 28 |new one.|.      (|
|00001050| 63 6f 70 79 2d 72 65 67 | 69 6f 6e 2d 61 73 2d 6b |copy-reg|ion-as-k|
|00001060| 69 6c 6c 20 28 6d 61 72 | 6b 2d 6d 61 72 6b 65 72 |ill (mar|k-marker|
|00001070| 29 20 28 70 6f 69 6e 74 | 2d 6d 61 72 6b 65 72 29 |) (point|-marker)|
|00001080| 29 0a 20 20 20 20 20 20 | 28 6c 65 74 20 28 28 63 |).      |(let ((c|
|00001090| 72 6e 74 2d 62 75 66 66 | 65 72 20 28 62 75 66 66 |rnt-buff|er (buff|
|000010a0| 65 72 2d 6e 61 6d 65 29 | 29 29 0a 09 28 73 77 69 |er-name)|))..(swi|
|000010b0| 74 63 68 2d 74 6f 2d 62 | 75 66 66 65 72 2d 6f 74 |tch-to-b|uffer-ot|
|000010c0| 68 65 72 2d 77 69 6e 64 | 6f 77 20 28 67 65 74 2d |her-wind|ow (get-|
|000010d0| 62 75 66 66 65 72 20 22 | 67 6e 75 2d 70 6c 6f 74 |buffer "|gnu-plot|
|000010e0| 2d 70 72 6f 67 72 61 6d | 22 29 29 0a 09 28 65 6e |-program|"))..(en|
|000010f0| 64 2d 6f 66 2d 62 75 66 | 66 65 72 29 0a 09 28 69 |d-of-buf|fer)..(i|
|00001100| 66 20 67 6e 75 2d 70 6c | 6f 74 2d 65 63 68 6f 2d |f gnu-pl|ot-echo-|
|00001110| 70 72 6f 67 72 61 6d 0a | 09 20 20 28 79 61 6e 6b |program.|.  (yank|
|00001120| 29 29 0a 09 28 73 65 74 | 2d 6d 61 72 6b 65 72 20 |))..(set|-marker |
|00001130| 28 70 72 6f 63 65 73 73 | 2d 6d 61 72 6b 20 28 67 |(process|-mark (g|
|00001140| 65 74 2d 70 72 6f 63 65 | 73 73 20 22 67 6e 75 2d |et-proce|ss "gnu-|
|00001150| 70 6c 6f 74 22 29 29 20 | 28 70 6f 69 6e 74 2d 6d |plot")) |(point-m|
|00001160| 61 72 6b 65 72 29 29 0a | 09 28 69 66 20 28 6e 6f |arker)).|.(if (no|
|00001170| 74 20 28 70 6f 73 2d 76 | 69 73 69 62 6c 65 2d 69 |t (pos-v|isible-i|
|00001180| 6e 2d 77 69 6e 64 6f 77 | 2d 70 29 29 0a 09 20 20 |n-window|-p))..  |
|00001190| 28 72 65 63 65 6e 74 65 | 72 20 33 29 29 0a 09 28 |(recente|r 3))..(|
|000011a0| 73 77 69 74 63 68 2d 74 | 6f 2d 62 75 66 66 65 72 |switch-t|o-buffer|
|000011b0| 2d 6f 74 68 65 72 2d 77 | 69 6e 64 6f 77 20 28 67 |-other-w|indow (g|
|000011c0| 65 74 2d 62 75 66 66 65 | 72 20 63 72 6e 74 2d 62 |et-buffe|r crnt-b|
|000011d0| 75 66 66 65 72 29 29 0a | 09 28 70 72 6f 63 65 73 |uffer)).|.(proces|
|000011e0| 73 2d 73 65 6e 64 2d 72 | 65 67 69 6f 6e 20 22 67 |s-send-r|egion "g|
|000011f0| 6e 75 2d 70 6c 6f 74 22 | 20 28 6d 61 72 6b 2d 6d |nu-plot"| (mark-m|
|00001200| 61 72 6b 65 72 29 20 28 | 70 6f 69 6e 74 2d 6d 61 |arker) (|point-ma|
|00001210| 72 6b 65 72 29 29 29 29 | 0a 20 20 20 20 28 6d 65 |rker))))|.    (me|
|00001220| 73 73 61 67 65 20 22 53 | 68 6f 75 6c 64 20 62 65 |ssage "S|hould be|
|00001230| 20 69 6e 76 6f 6b 65 64 | 20 69 6e 20 67 6e 75 2d | invoked| in gnu-|
|00001240| 70 6c 6f 74 2d 6d 6f 64 | 65 20 6f 6e 6c 79 2e 22 |plot-mod|e only."|
|00001250| 29 29 29 0a 0a 3b 3b 3b | 0a 3b 3b 3b 20 53 77 69 |)))..;;;|.;;; Swi|
|00001260| 74 63 68 20 74 6f 20 22 | 67 6e 75 2d 70 6c 6f 74 |tch to "|gnu-plot|
|00001270| 2d 70 72 6f 67 72 61 6d | 22 20 62 75 66 66 65 72 |-program|" buffer|
|00001280| 20 69 66 20 65 78 69 73 | 74 73 2e 20 49 66 20 6e | if exis|ts. If n|
|00001290| 6f 74 2c 20 63 72 65 61 | 74 65 73 20 6f 6e 65 20 |ot, crea|tes one |
|000012a0| 61 6e 64 0a 3b 3b 3b 20 | 65 78 65 63 75 74 65 20 |and.;;; |execute |
|000012b0| 74 68 65 20 70 72 6f 67 | 72 61 6d 20 64 65 66 69 |the prog|ram defi|
|000012c0| 6e 65 64 20 62 79 20 67 | 6e 75 2d 70 6c 6f 74 2d |ned by g|nu-plot-|
|000012d0| 70 72 6f 67 72 61 6d 2e | 0a 3b 3b 3b 0a 28 64 65 |program.|.;;;.(de|
|000012e0| 66 75 6e 20 6d 61 6b 65 | 2d 67 6e 75 2d 70 6c 6f |fun make|-gnu-plo|
|000012f0| 74 2d 62 75 66 66 65 72 | 20 28 29 0a 20 20 22 53 |t-buffer| ().  "S|
|00001300| 77 69 74 63 68 20 74 6f | 20 67 6e 75 2d 70 6c 6f |witch to| gnu-plo|
|00001310| 74 2d 70 72 6f 67 72 61 | 6d 20 62 75 66 66 65 72 |t-progra|m buffer|
|00001320| 20 6f 72 20 63 72 65 61 | 74 65 20 6f 6e 65 20 69 | or crea|te one i|
|00001330| 66 20 6e 6f 6e 65 20 65 | 78 69 73 74 73 22 0a 20 |f none e|xists". |
|00001340| 20 28 69 6e 74 65 72 61 | 63 74 69 76 65 29 0a 20 | (intera|ctive). |
|00001350| 20 28 69 66 20 28 67 65 | 74 2d 62 75 66 66 65 72 | (if (ge|t-buffer|
|00001360| 20 22 67 6e 75 2d 70 6c | 6f 74 2d 70 72 6f 67 72 | "gnu-pl|ot-progr|
|00001370| 61 6d 22 29 0a 20 20 20 | 20 28 69 66 20 28 6e 6f |am").   | (if (no|
|00001380| 74 20 28 67 65 74 2d 70 | 72 6f 63 65 73 73 20 22 |t (get-p|rocess "|
|00001390| 67 6e 75 2d 70 6c 6f 74 | 22 29 29 0a 20 20 20 20 |gnu-plot|")).    |
|000013a0| 20 20 28 70 72 6f 67 6e | 0a 09 28 6d 65 73 73 61 |  (progn|..(messa|
|000013b0| 67 65 20 22 53 74 61 72 | 74 69 6e 67 20 47 4e 55 |ge "Star|ting GNU|
|000013c0| 2d 50 4c 4f 54 20 70 6c | 6f 74 74 69 6e 67 20 70 |-PLOT pl|otting p|
|000013d0| 72 6f 67 72 61 6d 2e 2e | 2e 22 29 0a 09 28 73 74 |rogram..|.")..(st|
|000013e0| 61 72 74 2d 70 72 6f 63 | 65 73 73 20 22 67 6e 75 |art-proc|ess "gnu|
|000013f0| 2d 70 6c 6f 74 22 20 22 | 67 6e 75 2d 70 6c 6f 74 |-plot" "|gnu-plot|
|00001400| 2d 70 72 6f 67 72 61 6d | 22 20 67 6e 75 2d 70 6c |-program|" gnu-pl|
|00001410| 6f 74 2d 70 72 6f 67 72 | 61 6d 29 0a 09 28 70 72 |ot-progr|am)..(pr|
|00001420| 6f 63 65 73 73 2d 73 65 | 6e 64 2d 73 74 72 69 6e |ocess-se|nd-strin|
|00001430| 67 20 22 67 6e 75 2d 70 | 6c 6f 74 22 20 22 5c 6e |g "gnu-p|lot" "\n|
|00001440| 22 29 0a 09 28 6d 65 73 | 73 61 67 65 20 22 44 6f |")..(mes|sage "Do|
|00001450| 6e 65 2e 22 29 29 29 0a | 20 20 20 20 28 70 72 6f |ne."))).|    (pro|
|00001460| 67 6e 0a 20 20 20 20 20 | 20 28 6d 65 73 73 61 67 |gn.     | (messag|
|00001470| 65 20 22 53 74 61 72 74 | 69 6e 67 20 47 4e 55 2d |e "Start|ing GNU-|
|00001480| 50 4c 4f 54 20 70 6c 6f | 74 74 69 6e 67 20 70 72 |PLOT plo|tting pr|
|00001490| 6f 67 72 61 6d 2e 2e 2e | 22 29 0a 20 20 20 20 20 |ogram...|").     |
|000014a0| 20 28 73 74 61 72 74 2d | 70 72 6f 63 65 73 73 20 | (start-|process |
|000014b0| 22 67 6e 75 2d 70 6c 6f | 74 22 20 22 67 6e 75 2d |"gnu-plo|t" "gnu-|
|000014c0| 70 6c 6f 74 2d 70 72 6f | 67 72 61 6d 22 20 67 6e |plot-pro|gram" gn|
|000014d0| 75 2d 70 6c 6f 74 2d 70 | 72 6f 67 72 61 6d 29 0a |u-plot-p|rogram).|
|000014e0| 20 20 20 20 20 20 28 70 | 72 6f 63 65 73 73 2d 73 |      (p|rocess-s|
|000014f0| 65 6e 64 2d 73 74 72 69 | 6e 67 20 22 67 6e 75 2d |end-stri|ng "gnu-|
|00001500| 70 6c 6f 74 22 20 22 5c | 6e 22 29 0a 20 20 20 20 |plot" "\|n").    |
|00001510| 20 20 28 6d 65 73 73 61 | 67 65 20 22 44 6f 6e 65 |  (messa|ge "Done|
|00001520| 2e 22 29 29 29 29 0a 0a | 3b 3b 3b 0a 3b 3b 3b 20 |."))))..|;;;.;;; |
|00001530| 41 75 74 6f 6c 6f 61 64 | 20 67 6e 75 2d 70 6c 6f |Autoload| gnu-plo|
|00001540| 74 2d 6d 6f 64 65 20 6f | 6e 20 61 6e 79 20 66 69 |t-mode o|n any fi|
|00001550| 6c 65 20 77 69 74 68 20 | 67 70 20 65 78 74 65 6e |le with |gp exten|
|00001560| 73 69 6f 6e 2e 20 0a 3b | 3b 3b 0a 28 73 65 74 71 |sion. .;|;;.(setq|
|00001570| 20 61 75 74 6f 2d 6d 6f | 64 65 2d 61 6c 69 73 74 | auto-mo|de-alist|
|00001580| 20 28 61 70 70 65 6e 64 | 20 27 28 28 22 5c 5c 2e | (append| '(("\\.|
|00001590| 67 70 24 22 20 2e 20 67 | 6e 75 2d 70 6c 6f 74 2d |gp$" . g|nu-plot-|
|000015a0| 6d 6f 64 65 29 29 0a 09 | 09 09 20 20 20 20 20 20 |mode))..|..      |
|000015b0| 61 75 74 6f 2d 6d 6f 64 | 65 2d 61 6c 69 73 74 29 |auto-mod|e-alist)|
|000015c0| 29 0a                   |                         |).      |        |
+--------+-------------------------+-------------------------+--------+--------+